EC3_1_1: EC3-1-1 smartcalc Module

#' @export
`eq_6.25` <- eq(function(`V_{Ed}` = 1, `V_{pl,T,Rd}` = 2, output = 'UR_{\\tau, pl}'){
  {`V_{Ed}` / `V_{pl,T,Rd}`} %<=% 1
}, eq = '6.25', clause = '6.2.7', subclause = 9, type = 'torsion')

#' @export
`eq_6.26` <- eq(function(`\\tau_{t,Ed}` = 1, `f_y` = 5, `\\gamma_{M0}` = 3,
                      `V_{pl,Rd}` = 6, output = 'V_{pl,T,Rd}') {
  sqrt(1 - {`\\tau_{t,Ed}` /
  {1.25 * (`f_y` %//% sqrt(3)) %//% `\\gamma_{M0}`}}) *
    `V_{pl,Rd}`
}, eq = '6.26', clause = '6.2.7', subclause = 9, type = 'torsion', section = 'I|H')

# `eq_6.27` <- eq(function(`\\tau_{t,Ed}`, `f_y`, `\\gamma_{M0}`,
#                       `\\tau_{w,Ed}`, `V_{pl,Rd}`, output = 'V_{pl,T,Rd}'){
#   (sqrt(1 - `\\tau_{t,Ed}` /
#   {1.25 * (`f_y` %//% sqrt(3)) %//% `\\gamma_{M0}`}) -
#     `\\tau_{w,Ed}` / {(`f_y` %//% sqrt(3)) %//%
#         `\\gamma_{M0}`}) * `V_{pl,Rd}`
# }, eq = '6.27', clause = '6.2.7', subclause = 9, type = 'torsion', section = 'channel')

# `eq_6.28` <- eq(function(`\\tau_{t,Ed}`, `f_y`, `\\gamma_{M0}`,
#                       `V_{pl,Rd}`, output = 'V_{pl,T,Rd}') {
#   (1 - {`\\tau_{t,Ed}` / (`f_y` %//% sqrt(3)) %//%
#       `\\gamma_{M0}`}) * `V_{pl,Rd}`
# }, eq = '6.28', clause = '6.2.7', subclause = 9, type = 'torsion', section = 'SHS')